Option Explicit
Sub A_Sample069()
    'XAddkǦ^
    Dim myObjs As New Collection
    Dim myObj  As Object
    'Set myObj = myObjs.Add		'ڤW|Ϳ~
    If myObj Is Nothing Then
        MsgBox "ѩoO@ӽdҡAҥHLkܡC"
    Else
        MsgBox myObj.Name
    End If
    Set myObj = Nothing		'
    Set myObjs = Nothing
End Sub
